home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / cmpnew / cmpif.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  32KB  |  1,401 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpif.h"
  5. init_cmpif(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],VV[3],VV[4]));
  10.     (void)(putprop(VV[5],VV[6],VV[7]));
  11.     (void)(putprop(VV[5],VV[8],VV[4]));
  12.     (void)(putprop(VV[9],VV[10],VV[7]));
  13.     (void)(putprop(VV[9],VV[11],VV[4]));
  14.     (void)(putprop(VV[12],VV[13],VV[14]));
  15.     (void)(putprop(VV[15],VV[16],VV[14]));
  16.     (void)(putprop(VV[17],VV[18],VV[7]));
  17.     (void)(putprop(VV[19],VV[20],VV[7]));
  18.     (void)(putprop(VV[17],VV[21],VV[4]));
  19.     MF(VV[1],L12,start,size,data);
  20.     MF(VV[53],L13,start,size,data);
  21.     MF(VV[54],L14,start,size,data);
  22.     MF(VV[3],L15,start,size,data);
  23.     MF(VV[55],L16,start,size,data);
  24.     MF(VV[56],L17,start,size,data);
  25.     MF(VV[6],L18,start,size,data);
  26.     MF(VV[8],L19,start,size,data);
  27.     MF(VV[10],L20,start,size,data);
  28.     MF(VV[11],L21,start,size,data);
  29.     MF(VV[13],L22,start,size,data);
  30.     MF(VV[16],L23,start,size,data);
  31.     MF(VV[20],L24,start,size,data);
  32.     MF(VV[18],L25,start,size,data);
  33.     MF(VV[21],L26,start,size,data);
  34.     vs_top=vs_base=base;
  35. }
  36. /*    function definition for C1IF    */
  37.  
  38. static L12()
  39. {    register object *base=vs_base;
  40.     register object *sup=base+VM3;
  41.     vs_reserve(VM3);
  42.     check_arg(1);
  43.     vs_top=sup;
  44. TTL:;
  45.     base[1]= Cnil;
  46.     base[2]= Cnil;
  47.     if(endp(base[0])){
  48.     goto T13;}
  49.     if(!(endp(cdr(base[0])))){
  50.     goto T12;}
  51. T13:;
  52.     base[3]= VV[0];
  53.     base[4]= VV[22];
  54.     base[5]= make_fixnum(length(base[0]));
  55.     (void)simple_symlispcall_no_event(VV[57],base+3,3);
  56. T12:;
  57.     if(endp(cddr(base[0]))){
  58.     goto T20;}
  59.     if(endp(cdddr(base[0]))){
  60.     goto T20;}
  61.     base[3]= VV[0];
  62.     base[4]= VV[23];
  63.     base[5]= make_fixnum(length(base[0]));
  64.     (void)simple_symlispcall_no_event(VV[58],base+3,3);
  65. T20:;
  66.     base[3]= car(base[0]);
  67.     vs_top=(vs_base=base+3)+1;
  68.     L13();
  69.     vs_top=sup;
  70.     base[2]= vs_base[0];
  71.     {object V1= base[2];
  72.     if((V1!= Ct))goto T31;
  73.     base[3]= cadr(base[0]);
  74.     symlispcall_no_event(VV[59],base+3,1);
  75.     return;
  76. T31:;
  77.     if((V1!= Cnil))goto T33;
  78.     if(!(endp(cddr(base[0])))){
  79.     goto T35;}
  80.     symlispcall_no_event(VV[60],base+3,0);
  81.     return;
  82. T35:;
  83.     base[3]= caddr(base[0]);
  84.     symlispcall_no_event(VV[59],base+3,1);
  85.     return;
  86. T33:;
  87.     base[1]= simple_symlispcall_no_event(VV[61],base+3,0);
  88.     base[4]= base[2];
  89.     base[5]= base[1];
  90.     vs_top=(vs_base=base+4)+2;
  91.     L14();
  92.     vs_top=sup;
  93.     base[3]= vs_base[0];
  94.     base[5]= cadr(base[0]);
  95.     base[6]= base[1];
  96.     base[4]= simple_symlispcall_no_event(VV[62],base+5,2);
  97.     if(!(endp(cddr(base[0])))){
  98.     goto T48;}
  99.     base[5]= simple_symlispcall_no_event(VV[60],base+6,0);
  100.     goto T46;
  101. T48:;
  102.     base[6]= caddr(base[0]);
  103.     base[7]= base[1];
  104.     base[5]= simple_symlispcall_no_event(VV[62],base+6,2);
  105. T46:;
  106.     base[6]= list(5,VV[0],base[1],base[3],base[4],base[5]);
  107.     vs_top=(vs_base=base+6)+1;
  108.     return;}
  109. }
  110. /*    function definition for C1FMLA-CONSTANT    */
  111.  
  112. static L13()
  113. {    register object *base=vs_base;
  114.     register object *sup=base+VM4;
  115.     vs_reserve(VM4);
  116.     check_arg(1);
  117.     vs_top=sup;
  118. TTL:;
  119.     base[1]= Cnil;
  120.     if(!(type_of(base[0])==t_cons)){
  121.     goto T53;}
  122.     {object V2= car(base[0]);
  123.     if((V2!= VV[5]))goto T55;
  124.     {object V3;
  125.     V3= cdr(base[0]);
  126. T58:;
  127.     if(!(endp((V3)))){
  128.     goto T59;}
  129.     base[2]= Ct;
  130.     vs_top=(vs_base=base+2)+1;
  131.     return;
  132. T59:;
  133.     base[2]= car((V3));
  134.     vs_top=(vs_base=base+2)+1;
  135.     L13();
  136.     vs_top=sup;
  137.     base[1]= vs_base[0];
  138.     {object V4= base[1];
  139.     if((V4!= Ct))goto T67;
  140.     goto T66;
  141. T67:;
  142.     if((V4!= Cnil))goto T68;
  143.     base[2]= Cnil;
  144.     vs_top=(vs_base=base+2)+1;
  145.     return;
  146. T68:;
  147.     if(!(endp(cdr((V3))))){
  148.     goto T70;}
  149.     vs_top=(vs_base=base+1)+1;
  150.     return;
  151. T70:;
  152.     base[2]= listA(3,VV[5],base[1],cdr((V3)));
  153.     vs_top=(vs_base=base+2)+1;
  154.     return;}
  155. T66:;
  156.     V3= cdr((V3));
  157.     goto T58;}
  158. T55:;
  159.     if((V2!= VV[9]))goto T75;
  160.     {object V5;
  161.     V5= cdr(base[0]);
  162. T78:;
  163.     if(!(endp((V5)))){
  164.     goto T79;}
  165.     base[2]= Cnil;
  166.     vs_top=(vs_base=base+2)+1;
  167.     return;
  168. T79:;
  169.     base[2]= car((V5));
  170.     vs_top=(vs_base=base+2)+1;
  171.     L13();
  172.     vs_top=sup;
  173.     base[1]= vs_base[0];
  174.     {object V6= base[1];
  175.     if((V6!= Ct))goto T87;
  176.     base[2]= Ct;
  177.     vs_top=(vs_base=base+2)+1;
  178.     return;
  179. T87:;
  180.     if((V6!= Cnil))goto T88;
  181.     goto T86;
  182. T88:;
  183.     if(!(endp(cdr((V5))))){
  184.     goto T90;}
  185.     vs_top=(vs_base=base+1)+1;
  186.     return;
  187. T90:;
  188.     base[2]= listA(3,VV[9],base[1],cdr((V5)));
  189.     vs_top=(vs_base=base+2)+1;
  190.     return;}
  191. T86:;
  192.     V5= cdr((V5));
  193.     goto T78;}
  194. T75:;
  195.     if((V2!= VV[24])
  196.     && (V2!= VV[63]))goto T95;
  197.     if(!(endp(cdr(base[0])))){
  198.     goto T96;}
  199.     base[2]= VV[24];
  200.     base[3]= VV[25];
  201.     base[4]= VV[26];
  202.     (void)simple_symlispcall_no_event(VV[57],base+2,3);
  203. T96:;
  204.     if(endp(cddr(base[0]))){
  205.     goto T102;}
  206.     base[2]= VV[24];
  207.     base[3]= VV[25];
  208.     base[4]= make_fixnum(length(cdr(base[0])));
  209.     (void)simple_symlispcall_no_event(VV[58],base+2,3);
  210. T102:;
  211.     base[2]= cadr(base[0]);
  212.     vs_top=(vs_base=base+2)+1;
  213.     L13();
  214.     vs_top=sup;
  215.     base[1]= vs_base[0];
  216.     {object V7= base[1];
  217.     if((V7!= Ct))goto T111;
  218.     base[2]= Cnil;
  219.     vs_top=(vs_base=base+2)+1;
  220.     return;
  221. T111:;
  222.     if((V7!= Cnil))goto T112;
  223.     base[2]= Ct;
  224.     vs_top=(vs_base=base+2)+1;
  225.     return;
  226. T112:;
  227.     base[2]= list(2,VV[24],base[1]);
  228.     vs_top=(vs_base=base+2)+1;
  229.     return;}
  230. T95:;
  231.     vs_top=(vs_base=base+0)+1;
  232.     return;}
  233. T53:;
  234.     if(!(type_of(base[0])==t_symbol)){
  235.     goto T114;}
  236.     base[2]= base[0];
  237.     vs_top=(vs_base=base+2)+1;
  238.     Lconstantp();
  239.     vs_top=sup;
  240.     if((vs_base[0])==Cnil){
  241.     goto T117;}
  242.     base[2]= base[0];
  243.     vs_top=(vs_base=base+2)+1;
  244.     Lsymbol_value();
  245.     vs_top=sup;
  246.     if((vs_base[0])==Cnil){
  247.     goto T121;}
  248.     base[2]= Ct;
  249.     vs_top=(vs_base=base+2)+1;
  250.     return;
  251. T121:;
  252.     base[2]= Cnil;
  253.     vs_top=(vs_base=base+2)+1;
  254.     return;
  255. T117:;
  256.     vs_top=(vs_base=base+0)+1;
  257.     return;
  258. T114:;
  259.     base[2]= Cnil;
  260.     vs_top=(vs_base=base+2)+1;
  261.     return;
  262. }
  263. /*    function definition for C1FMLA    */
  264.  
  265. static L14()
  266. {    register object *base=vs_base;
  267.     register object *sup=base+VM5;
  268.     vs_reserve(VM5);
  269.     check_arg(2);
  270.     vs_top=sup;
  271. TTL:;
  272.     if(!(type_of(base[0])==t_cons)){
  273.     goto T125;}
  274.     {object V8= car(base[0]);
  275.     if((V8!= VV[5]))goto T127;
  276.     base[2]= make_fixnum(length(cdr(base[0])));
  277.     {object V9= base[2];
  278.     if(!eql(V9,VV[26]))goto T128;
  279.     symlispcall_no_event(VV[64],base+3,0);
  280.     return;
  281. T128:;
  282.     if(!eql(V9,VV[25]))goto T129;
  283.     base[0]= cadr(base[0]);
  284.     goto TTL;
  285. T129:;
  286.     {object V10;
  287.     object V11= cdr(base[0]);
  288.     if(endp(V11)){
  289.     base[3]= Cnil;
  290.     goto T133;}
  291.     base[4]=V10=MMcons(Cnil,Cnil);
  292. T134:;
  293.     base[6]= (V11->c.c_car);
  294.     base[7]= base[1];
  295.     vs_top=(vs_base=base+6)+2;
  296.     L14();
  297.     vs_top=sup;
  298.     (V10->c.c_car)= vs_base[0];
  299.     if(endp(V11=MMcdr(V11))){
  300.     base[3]= base[4];
  301.     goto T133;}
  302.     V10=MMcdr(V10)=MMcons(Cnil,Cnil);
  303.     goto T134;}
  304. T133:;
  305.     base[4]= make_cons(VV[27],base[3]);
  306.     vs_top=(vs_base=base+4)+1;
  307.     return;}
  308. T127:;
  309.     if((V8!= VV[9]))goto T138;
  310.     base[2]= make_fixnum(length(cdr(base[0])));
  311.     {object V12= base[2];
  312.     if(!eql(V12,VV[26]))goto T139;
  313.     symlispcall_no_event(VV[60],base+3,0);
  314.     return;
  315. T139:;
  316.     if(!eql(V12,VV[25]))goto T140;
  317.     base[0]= cadr(base[0]);
  318.     goto TTL;
  319. T140:;
  320.     {object V13;
  321.     object V14= cdr(base[0]);
  322.     if(endp(V14)){
  323.     base[3]= Cnil;
  324.     goto T144;}
  325.     base[4]=V13=MMcons(Cnil,Cnil);
  326. T145:;
  327.     base[6]= (V14->c.c_car);
  328.     base[7]= base[1];
  329.     vs_top=(vs_base=base+6)+2;
  330.     L14();
  331.     vs_top=sup;
  332.     (V13->c.c_car)= vs_base[0];
  333.     if(endp(V14=MMcdr(V14))){
  334.     base[3]= base[4];
  335.     goto T144;}
  336.     V13=MMcdr(V13)=MMcons(Cnil,Cnil);
  337.     goto T145;}
  338. T144:;
  339.     base[4]= make_cons(VV[28],base[3]);
  340.     vs_top=(vs_base=base+4)+1;
  341.     return;}
  342. T138:;
  343.     if((V8!= VV[24])
  344.     && (V8!= VV[63]))goto T149;
  345.     if(!(endp(cdr(base[0])))){
  346.     goto T150;}
  347.     base[2]= VV[24];
  348.     base[3]= VV[25];
  349.     base[4]= VV[26];
  350.     (void)simple_symlispcall_no_event(VV[57],base+2,3);
  351. T150:;
  352.     if(endp(cddr(base[0]))){
  353.     goto T156;}
  354.     base[2]= VV[24];
  355.     base[3]= VV[25];
  356.     base[4]= make_fixnum(length(cdr(base[0])));
  357.     (void)simple_symlispcall_no_event(VV[58],base+2,3);
  358. T156:;
  359.     base[3]= cadr(base[0]);
  360.     base[4]= base[1];
  361.     vs_top=(vs_base=base+3)+2;
  362.     L14();
  363.     vs_top=sup;
  364.     base[2]= vs_base[0];
  365.     base[3]= list(2,VV[29],base[2]);
  366.     vs_top=(vs_base=base+3)+1;
  367.     return;
  368. T149:;
  369.     base[2]= base[0];
  370.     base[3]= base[1];
  371.     symlispcall_no_event(VV[62],base+2,2);
  372.     return;}
  373. T125:;
  374.     base[2]= base[0];
  375.     base[3]= base[1];
  376.     symlispcall_no_event(VV[62],base+2,2);
  377.     return;
  378. }
  379. /*    function definition for C2IF    */
  380.  
  381. static L15()
  382. {    register object *base=vs_base;
  383.     register object *sup=base+VM6;
  384.     vs_reserve(VM6);
  385.     bds_check;
  386.     check_arg(3);
  387.     vs_top=sup;
  388. TTL:;
  389.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  390.     base[4]= symbol_value(VV[30]);
  391.     base[3]= make_cons(base[4],Cnil);
  392.     base[4]= Cnil;
  393.     if(!(car(base[2])==VV[31])){
  394.     goto T173;}
  395.     if((caddr(base[2]))!=Cnil){
  396.     goto T173;}
  397.     if(!(symbol_value(VV[32])==VV[33])){
  398.     goto T173;}
  399.     if(symbol_value(VV[34])==VV[35]){
  400.     goto T173;}
  401.     base[5]= symbol_value(VV[34]);
  402.     base[6]= make_cons(base[3],symbol_value(VV[36]));
  403.     bds_bind(VV[36],base[6]);
  404.     bds_bind(VV[34],base[3]);
  405.     base[8]= base[0];
  406.     base[9]= base[3];
  407.     base[10]= base[5];
  408.     vs_top=(vs_base=base+8)+3;
  409.     L17();
  410.     vs_top=sup;
  411.     bds_unwind1;
  412.     bds_unwind1;
  413.     if((cdr(base[3]))==Cnil){
  414.     goto T187;}
  415.     princ_str("\nT",VV[37]);
  416.     base[5]= car(base[3]);
  417.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  418.     princ_str(":;",VV[37]);
  419. T187:;
  420.     base[5]= base[1];
  421.     symlispcall_no_event(VV[66],base+5,1);
  422.     return;
  423. T173:;
  424.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  425.     base[5]= symbol_value(VV[30]);
  426.     base[4]= make_cons(base[5],Cnil);
  427.     base[7]= make_cons(base[3],symbol_value(VV[36]));
  428.     base[5]= make_cons(base[4],base[7]);
  429.     bds_bind(VV[36],base[5]);
  430.     bds_bind(VV[34],base[3]);
  431.     base[7]= base[0];
  432.     base[8]= base[3];
  433.     base[9]= base[4];
  434.     vs_top=(vs_base=base+7)+3;
  435.     L17();
  436.     vs_top=sup;
  437.     bds_unwind1;
  438.     bds_unwind1;
  439.     if((cdr(base[3]))==Cnil){
  440.     goto T204;}
  441.     princ_str("\nT",VV[37]);
  442.     base[5]= car(base[3]);
  443.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  444.     princ_str(":;",VV[37]);
  445. T204:;
  446.     base[5]= make_cons(VV[38],symbol_value(VV[36]));
  447.     bds_bind(VV[36],base[5]);
  448.     base[6]= base[1];
  449.     base[7]= simple_symlispcall_no_event(VV[66],base+6,1);
  450.     bds_unwind1;
  451.     if((cdr(base[4]))==Cnil){
  452.     goto T214;}
  453.     princ_str("\nT",VV[37]);
  454.     base[5]= car(base[4]);
  455.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  456.     princ_str(":;",VV[37]);
  457. T214:;
  458.     base[5]= base[2];
  459.     symlispcall_no_event(VV[66],base+5,1);
  460.     return;
  461. }
  462. /*    function definition for CJT    */
  463.  
  464. static L16()
  465. {    register object *base=vs_base;
  466.     register object *sup=base+VM7;
  467.     vs_reserve(VM7);
  468.     bds_check;
  469.     check_arg(3);
  470.     vs_top=sup;
  471. TTL:;
  472.     {object V15= car(base[0]);
  473.     if((V15!= VV[27]))goto T222;
  474.     {object V16;
  475.     V16= cdr(base[0]);
  476. T225:;
  477.     if(!(endp(cdr((V16))))){
  478.     goto T226;}
  479.     base[0]= car((V16));
  480.     goto TTL;
  481. T226:;
  482.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  483.     base[4]= symbol_value(VV[30]);
  484.     base[3]= make_cons(base[4],Cnil);
  485.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  486.     base[5]= car((V16));
  487.     base[6]= base[3];
  488.     base[7]= base[2];
  489.     vs_top=(vs_base=base+5)+3;
  490.     L17();
  491.     vs_top=sup;
  492.     if((cdr(base[3]))==Cnil){
  493.     bds_unwind1;
  494.     goto T234;}
  495.     princ_str("\nT",VV[37]);
  496.     base[5]= car(base[3]);
  497.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  498.     princ_str(":;",VV[37]);
  499.     bds_unwind1;
  500. T234:;
  501.     V16= cdr((V16));
  502.     goto T225;}
  503. T222:;
  504.     if((V15!= VV[28]))goto T252;
  505.     {object V17;
  506.     V17= cdr(base[0]);
  507. T255:;
  508.     if(!(endp(cdr((V17))))){
  509.     goto T256;}
  510.     base[0]= car((V17));
  511.     goto TTL;
  512. T256:;
  513.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  514.     base[4]= symbol_value(VV[30]);
  515.     base[3]= make_cons(base[4],Cnil);
  516.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  517.     base[5]= car((V17));
  518.     base[6]= base[1];
  519.     base[7]= base[3];
  520.     vs_top=(vs_base=base+5)+3;
  521.     L16();
  522.     vs_top=sup;
  523.     if((cdr(base[3]))==Cnil){
  524.     bds_unwind1;
  525.     goto T264;}
  526.     princ_str("\nT",VV[37]);
  527.     base[5]= car(base[3]);
  528.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  529.     princ_str(":;",VV[37]);
  530.     bds_unwind1;
  531. T264:;
  532.     V17= cdr((V17));
  533.     goto T255;}
  534. T252:;
  535.     if((V15!= VV[29]))goto T282;
  536.     base[3]= cadr(base[0]);
  537.     base[4]= base[2];
  538.     base[5]= base[1];
  539.     vs_top=(vs_base=base+3)+3;
  540.     L17();
  541.     return;
  542. T282:;
  543.     if((V15!= VV[31]))goto T286;
  544.     {object V18= caddr(base[0]);
  545.     if((V18!= Ct))goto T287;
  546.     base[3]= base[1];
  547.     (void)simple_symlispcall_no_event(VV[67],base+3,1);
  548.     princ_str("\n    ",VV[37]);
  549.     if(type_of(base[1])!=t_cons)FEwrong_type_argument(Scons,base[1]);
  550.     (base[1])->c.c_cdr = Ct;
  551.     princ_str("goto T",VV[37]);
  552.     base[3]= car(base[1]);
  553.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  554.     princ_char(59,VV[37]);
  555.     base[3]= Cnil;
  556.     vs_top=(vs_base=base+3)+1;
  557.     return;
  558. T287:;
  559.     if((V18!= Cnil))goto T296;
  560.     base[3]= Cnil;
  561.     vs_top=(vs_base=base+3)+1;
  562.     return;
  563. T296:;
  564.     base[3]= list(2,VV[12],base[1]);
  565.     bds_bind(VV[32],base[3]);
  566.     base[4]= base[0];
  567.     symlispcall_no_event(VV[68],base+4,1);
  568.     bds_unwind1;
  569.     return;}
  570. T286:;
  571.     base[3]= list(2,VV[12],base[1]);
  572.     bds_bind(VV[32],base[3]);
  573.     base[4]= base[0];
  574.     symlispcall_no_event(VV[68],base+4,1);
  575.     bds_unwind1;
  576.     return;}
  577. }
  578. /*    function definition for CJF    */
  579.  
  580. static L17()
  581. {    register object *base=vs_base;
  582.     register object *sup=base+VM8;
  583.     vs_reserve(VM8);
  584.     bds_check;
  585.     check_arg(3);
  586.     vs_top=sup;
  587. TTL:;
  588.     {object V19= car(base[0]);
  589.     if((V19!= VV[27]))goto T301;
  590.     {object V20;
  591.     V20= cdr(base[0]);
  592. T304:;
  593.     if(!(endp(cdr((V20))))){
  594.     goto T305;}
  595.     base[0]= car((V20));
  596.     goto TTL;
  597. T305:;
  598.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  599.     base[4]= symbol_value(VV[30]);
  600.     base[3]= make_cons(base[4],Cnil);
  601.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  602.     base[5]= car((V20));
  603.     base[6]= base[3];
  604.     base[7]= base[2];
  605.     vs_top=(vs_base=base+5)+3;
  606.     L17();
  607.     vs_top=sup;
  608.     if((cdr(base[3]))==Cnil){
  609.     bds_unwind1;
  610.     goto T313;}
  611.     princ_str("\nT",VV[37]);
  612.     base[5]= car(base[3]);
  613.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  614.     princ_str(":;",VV[37]);
  615.     bds_unwind1;
  616. T313:;
  617.     V20= cdr((V20));
  618.     goto T304;}
  619. T301:;
  620.     if((V19!= VV[28]))goto T331;
  621.     {object V21;
  622.     V21= cdr(base[0]);
  623. T334:;
  624.     if(!(endp(cdr((V21))))){
  625.     goto T335;}
  626.     base[0]= car((V21));
  627.     goto TTL;
  628. T335:;
  629.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  630.     base[4]= symbol_value(VV[30]);
  631.     base[3]= make_cons(base[4],Cnil);
  632.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  633.     base[5]= car((V21));
  634.     base[6]= base[1];
  635.     base[7]= base[3];
  636.     vs_top=(vs_base=base+5)+3;
  637.     L16();
  638.     vs_top=sup;
  639.     if((cdr(base[3]))==Cnil){
  640.     bds_unwind1;
  641.     goto T343;}
  642.     princ_str("\nT",VV[37]);
  643.     base[5]= car(base[3]);
  644.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  645.     princ_str(":;",VV[37]);
  646.     bds_unwind1;
  647. T343:;
  648.     V21= cdr((V21));
  649.     goto T334;}
  650. T331:;
  651.     if((V19!= VV[29]))goto T361;
  652.     base[3]= cadr(base[0]);
  653.     base[4]= base[2];
  654.     base[5]= base[1];
  655.     vs_top=(vs_base=base+3)+3;
  656.     L16();
  657.     return;
  658. T361:;
  659.     if((V19!= VV[31]))goto T365;
  660.     {object V22= caddr(base[0]);
  661.     if((V22!= Ct))goto T366;
  662.     base[3]= Cnil;
  663.     vs_top=(vs_base=base+3)+1;
  664.     return;
  665. T366:;
  666.     if((V22!= Cnil))goto T367;
  667.     base[3]= base[2];
  668.     (void)simple_symlispcall_no_event(VV[67],base+3,1);
  669.     princ_str("\n    ",VV[37]);
  670.     if(type_of(base[2])!=t_cons)FEwrong_type_argument(Scons,base[2]);
  671.     (base[2])->c.c_cdr = Ct;
  672.     princ_str("goto T",VV[37]);
  673.     base[3]= car(base[2]);
  674.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  675.     princ_char(59,VV[37]);
  676.     base[3]= Cnil;
  677.     vs_top=(vs_base=base+3)+1;
  678.     return;
  679. T367:;
  680.     base[3]= list(2,VV[15],base[2]);
  681.     bds_bind(VV[32],base[3]);
  682.     base[4]= base[0];
  683.     symlispcall_no_event(VV[68],base+4,1);
  684.     bds_unwind1;
  685.     return;}
  686. T365:;
  687.     base[3]= list(2,VV[15],base[2]);
  688.     bds_bind(VV[32],base[3]);
  689.     base[4]= base[0];
  690.     symlispcall_no_event(VV[68],base+4,1);
  691.     bds_unwind1;
  692.     return;}
  693. }
  694. /*    function definition for C1AND    */
  695.  
  696. static L18()
  697. {    register object *base=vs_base;
  698.     register object *sup=base+VM9;
  699.     vs_reserve(VM9);
  700.     check_arg(1);
  701.     vs_top=sup;
  702. TTL:;
  703.     if(!(endp(base[0]))){
  704.     goto T381;}
  705.     symlispcall_no_event(VV[64],base+1,0);
  706.     return;
  707. T381:;
  708.     if(!(endp(cdr(base[0])))){
  709.     goto T384;}
  710.     base[1]= car(base[0]);
  711.     symlispcall_no_event(VV[59],base+1,1);
  712.     return;
  713. T384:;
  714.     base[1]= simple_symlispcall_no_event(VV[61],base+2,0);
  715.     base[3]= base[0];
  716.     base[4]= base[1];
  717.     base[2]= simple_symlispcall_no_event(VV[69],base+3,2);
  718.     base[3]= list(3,VV[5],base[1],base[2]);
  719.     vs_top=(vs_base=base+3)+1;
  720.     return;
  721. }
  722. /*    function definition for C2AND    */
  723.  
  724. static L19()
  725. {    register object *base=vs_base;
  726.     register object *sup=base+VM10;
  727.     vs_reserve(VM10);
  728.     bds_check;
  729.     check_arg(1);
  730.     vs_top=sup;
  731. TTL:;
  732.     {object V23;
  733.     V23= base[0];
  734. T393:;
  735.     if(!(endp(cdr((V23))))){
  736.     goto T394;}
  737.     base[1]= car((V23));
  738.     symlispcall_no_event(VV[66],base+1,1);
  739.     return;
  740. T394:;
  741.     if(!(caar((V23))==VV[31])){
  742.     goto T401;}
  743.     {object V24= caddar((V23));
  744.     if((V24!= Ct))goto T403;
  745.     goto T399;
  746. T403:;
  747.     if((V24!= Cnil))goto T404;
  748.     base[1]= Cnil;
  749.     base[2]= VV[38];
  750.     (void)simple_symlispcall_no_event(VV[70],base+1,2);
  751.     goto T399;
  752. T404:;
  753.     princ_str("\n    if(",VV[37]);
  754.     base[1]= caddar((V23));
  755.     (void)simple_symlispcall_no_event(VV[65],base+1,1);
  756.     princ_str("==Cnil){",VV[37]);
  757.     base[1]= Cnil;
  758.     base[2]= VV[38];
  759.     (void)simple_symlispcall_no_event(VV[70],base+1,2);
  760.     princ_char(125,VV[37]);
  761.     goto T399;}
  762. T401:;
  763.     if(!(caar((V23))==VV[39])){
  764.     goto T417;}
  765.     princ_str("\n    if(",VV[37]);
  766.     base[1]= car(caddar((V23)));
  767.     base[2]= cadr(caddar((V23)));
  768.     (void)simple_symlispcall_no_event(VV[71],base+1,2);
  769.     princ_str("==Cnil){",VV[37]);
  770.     base[1]= Cnil;
  771.     base[2]= VV[38];
  772.     (void)simple_symlispcall_no_event(VV[70],base+1,2);
  773.     princ_char(125,VV[37]);
  774.     goto T399;
  775. T417:;
  776.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  777.     base[2]= symbol_value(VV[30]);
  778.     base[1]= make_cons(base[2],Cnil);
  779.     bds_bind(VV[36],make_cons(base[1],symbol_value(VV[36])));
  780.     base[3]= list(2,VV[12],base[1]);
  781.     bds_bind(VV[32],base[3]);
  782.     base[4]= car((V23));
  783.     base[5]= simple_symlispcall_no_event(VV[68],base+4,1);
  784.     bds_unwind1;
  785.     base[3]= Cnil;
  786.     base[4]= VV[38];
  787.     (void)simple_symlispcall_no_event(VV[70],base+3,2);
  788.     if((cdr(base[1]))==Cnil){
  789.     bds_unwind1;
  790.     goto T399;}
  791.     princ_str("\nT",VV[37]);
  792.     base[3]= car(base[1]);
  793.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  794.     princ_str(":;",VV[37]);
  795.     bds_unwind1;
  796. T399:;
  797.     V23= cdr((V23));
  798.     goto T393;}
  799. }
  800. /*    function definition for C1OR    */
  801.  
  802. static L20()
  803. {    register object *base=vs_base;
  804.     register object *sup=base+VM11;
  805.     vs_reserve(VM11);
  806.     check_arg(1);
  807.     vs_top=sup;
  808. TTL:;
  809.     if(!(endp(base[0]))){
  810.     goto T450;}
  811.     symlispcall_no_event(VV[60],base+1,0);
  812.     return;
  813. T450:;
  814.     if(!(endp(cdr(base[0])))){
  815.     goto T453;}
  816.     base[1]= car(base[0]);
  817.     symlispcall_no_event(VV[59],base+1,1);
  818.     return;
  819. T453:;
  820.     base[1]= simple_symlispcall_no_event(VV[61],base+2,0);
  821.     base[3]= base[0];
  822.     base[4]= base[1];
  823.     base[2]= simple_symlispcall_no_event(VV[69],base+3,2);
  824.     base[3]= list(3,VV[9],base[1],base[2]);
  825.     vs_top=(vs_base=base+3)+1;
  826.     return;
  827. }
  828. /*    function definition for C2OR    */
  829.  
  830. static L21()
  831. {    register object *base=vs_base;
  832.     register object *sup=base+VM12;
  833.     vs_reserve(VM12);
  834.     bds_check;
  835.     check_arg(1);
  836.     vs_top=sup;
  837. TTL:;
  838.     bds_bind(VV[40],symbol_value(VV[40]));
  839.     {object V25;
  840.     V25= base[0];
  841.     base[3]= simple_symlispcall_no_event(VV[72],base+4,0);
  842.     base[2]= list(2,VV[41],base[3]);
  843. T464:;
  844.     if(!(endp(cdr((V25))))){
  845.     goto T465;}
  846.     base[3]= car((V25));
  847.     symlispcall_no_event(VV[66],base+3,1);
  848.     bds_unwind1;
  849.     return;
  850. T465:;
  851.     if(!(caar((V25))==VV[31])){
  852.     goto T472;}
  853.     {object V26= caddar((V25));
  854.     if((V26!= Ct))goto T474;
  855.     base[3]= Ct;
  856.     base[4]= VV[38];
  857.     (void)simple_symlispcall_no_event(VV[70],base+3,2);
  858.     goto T470;
  859. T474:;
  860.     if((V26!= Cnil))goto T477;
  861.     goto T470;
  862. T477:;
  863.     princ_str("\n    if(",VV[37]);
  864.     base[3]= caddar((V25));
  865.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  866.     princ_str("!=Cnil){",VV[37]);
  867.     base[3]= caddar((V25));
  868.     base[4]= VV[38];
  869.     (void)simple_symlispcall_no_event(VV[70],base+3,2);
  870.     princ_char(125,VV[37]);
  871.     goto T470;}
  872. T472:;
  873.     if(!(caar((V25))==VV[39])){
  874.     goto T488;}
  875.     princ_str("\n    if(",VV[37]);
  876.     base[3]= car(caddar((V25)));
  877.     base[4]= cadr(caddar((V25)));
  878.     (void)simple_symlispcall_no_event(VV[71],base+3,2);
  879.     princ_str("!=Cnil){",VV[37]);
  880.     base[3]= make_cons(VV[39],caddar((V25)));
  881.     base[4]= VV[38];
  882.     (void)simple_symlispcall_no_event(VV[70],base+3,2);
  883.     princ_char(125,VV[37]);
  884.     goto T470;
  885. T488:;
  886.     if(!(caar((V25))==VV[42])){
  887.     goto T502;}
  888.     if((get(caddar((V25)),VV[43],Cnil))==Cnil){
  889.     goto T502;}
  890.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  891.     base[4]= symbol_value(VV[30]);
  892.     base[3]= make_cons(base[4],Cnil);
  893.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  894.     base[5]= list(2,VV[15],base[3]);
  895.     bds_bind(VV[32],base[5]);
  896.     base[6]= car((V25));
  897.     base[7]= simple_symlispcall_no_event(VV[68],base+6,1);
  898.     bds_unwind1;
  899.     base[5]= Ct;
  900.     base[6]= VV[38];
  901.     (void)simple_symlispcall_no_event(VV[70],base+5,2);
  902.     if((cdr(base[3]))==Cnil){
  903.     bds_unwind1;
  904.     goto T470;}
  905.     princ_str("\nT",VV[37]);
  906.     base[5]= car(base[3]);
  907.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  908.     princ_str(":;",VV[37]);
  909.     bds_unwind1;
  910.     goto T470;
  911. T502:;
  912.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  913.     base[4]= symbol_value(VV[30]);
  914.     base[3]= make_cons(base[4],Cnil);
  915.     bds_bind(VV[36],make_cons(base[3],symbol_value(VV[36])));
  916.     bds_bind(VV[32],base[2]);
  917.     base[6]= car((V25));
  918.     base[7]= simple_symlispcall_no_event(VV[68],base+6,1);
  919.     bds_unwind1;
  920.     princ_str("\n    if(",VV[37]);
  921.     base[5]= base[2];
  922.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  923.     princ_str("==Cnil)",VV[37]);
  924.     if(type_of(base[3])!=t_cons)FEwrong_type_argument(Scons,base[3]);
  925.     (base[3])->c.c_cdr = Ct;
  926.     princ_str("goto T",VV[37]);
  927.     base[5]= car(base[3]);
  928.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  929.     princ_char(59,VV[37]);
  930.     base[5]= base[2];
  931.     base[6]= VV[38];
  932.     (void)simple_symlispcall_no_event(VV[70],base+5,2);
  933.     if((cdr(base[3]))==Cnil){
  934.     bds_unwind1;
  935.     goto T470;}
  936.     princ_str("\nT",VV[37]);
  937.     base[5]= car(base[3]);
  938.     (void)simple_symlispcall_no_event(VV[65],base+5,1);
  939.     princ_str(":;",VV[37]);
  940.     bds_unwind1;
  941. T470:;
  942.     V25= cdr((V25));
  943.     goto T464;}
  944. }
  945. /*    function definition for SET-JUMP-TRUE    */
  946.  
  947. static L22()
  948. {    register object *base=vs_base;
  949.     register object *sup=base+VM13;
  950.     vs_reserve(VM13);
  951.     check_arg(2);
  952.     vs_top=sup;
  953. TTL:;
  954.     if((base[0])==Cnil){
  955.     goto T552;}
  956.     base[2]= (base[0]==Ct?Ct:Cnil);
  957.     if((base[2])==Cnil){
  958.     goto T557;}
  959.     goto T554;
  960. T557:;
  961.     if(!(type_of(base[0])==t_cons)){
  962.     goto T560;}
  963.     if(!(car(base[0])==VV[44])){
  964.     goto T560;}
  965.     princ_str("\n    if(",VV[37]);
  966.     base[3]= caddr(base[0]);
  967.     base[4]= cadddr(base[0]);
  968.     (void)simple_symlispcall_no_event(VV[73],base+3,2);
  969.     princ_char(41,VV[37]);
  970.     goto T554;
  971. T560:;
  972.     princ_str("\n    if((",VV[37]);
  973.     base[3]= base[0];
  974.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  975.     princ_str(")!=Cnil)",VV[37]);
  976. T554:;
  977.     if(base[0]==Ct){
  978.     goto T574;}
  979.     princ_char(123,VV[37]);
  980. T574:;
  981.     base[2]= base[1];
  982.     (void)simple_symlispcall_no_event(VV[67],base+2,1);
  983.     princ_str("\n    ",VV[37]);
  984.     if(type_of(base[1])!=t_cons)FEwrong_type_argument(Scons,base[1]);
  985.     (base[1])->c.c_cdr = Ct;
  986.     princ_str("goto T",VV[37]);
  987.     base[2]= car(base[1]);
  988.     (void)simple_symlispcall_no_event(VV[65],base+2,1);
  989.     princ_char(59,VV[37]);
  990.     if(base[0]==Ct){
  991.     goto T588;}
  992.     princ_char(125,VV[37]);
  993.     base[2]= Cnil;
  994.     vs_top=(vs_base=base+2)+1;
  995.     return;
  996. T588:;
  997.     base[2]= Cnil;
  998.     vs_top=(vs_base=base+2)+1;
  999.     return;
  1000. T552:;
  1001.     base[2]= Cnil;
  1002.     vs_top=(vs_base=base+2)+1;
  1003.     return;
  1004. }
  1005. /*    function definition for SET-JUMP-FALSE    */
  1006.  
  1007. static L23()
  1008. {    register object *base=vs_base;
  1009.     register object *sup=base+VM14;
  1010.     vs_reserve(VM14);
  1011.     check_arg(2);
  1012.     vs_top=sup;
  1013. TTL:;
  1014.     if(base[0]==Ct){
  1015.     goto T592;}
  1016.     base[2]= (base[0]==Cnil?Ct:Cnil);
  1017.     if((base[2])==Cnil){
  1018.     goto T597;}
  1019.     goto T594;
  1020. T597:;
  1021.     if(!(type_of(base[0])==t_cons)){
  1022.     goto T600;}
  1023.     if(!(car(base[0])==VV[44])){
  1024.     goto T600;}
  1025.     princ_str("\n    if(!(",VV[37]);
  1026.     base[3]= caddr(base[0]);
  1027.     base[4]= cadddr(base[0]);
  1028.     (void)simple_symlispcall_no_event(VV[73],base+3,2);
  1029.     princ_str("))",VV[37]);
  1030.     goto T594;
  1031. T600:;
  1032.     princ_str("\n    if((",VV[37]);
  1033.     base[3]= base[0];
  1034.     (void)simple_symlispcall_no_event(VV[65],base+3,1);
  1035.     princ_str(")==Cnil)",VV[37]);
  1036. T594:;
  1037.     if((base[0])==Cnil){
  1038.     goto T614;}
  1039.     princ_char(123,VV[37]);
  1040. T614:;
  1041.     base[2]= base[1];
  1042.     (void)simple_symlispcall_no_event(VV[67],base+2,1);
  1043.     princ_str("\n    ",VV[37]);
  1044.     if(type_of(base[1])!=t_cons)FEwrong_type_argument(Scons,base[1]);
  1045.     (base[1])->c.c_cdr = Ct;
  1046.     princ_str("goto T",VV[37]);
  1047.     base[2]= car(base[1]);
  1048.     (void)simple_symlispcall_no_event(VV[65],base+2,1);
  1049.     princ_char(59,VV[37]);
  1050.     if((base[0])==Cnil){
  1051.     goto T628;}
  1052.     princ_char(125,VV[37]);
  1053.     base[2]= Cnil;
  1054.     vs_top=(vs_base=base+2)+1;
  1055.     return;
  1056. T628:;
  1057.     base[2]= Cnil;
  1058.     vs_top=(vs_base=base+2)+1;
  1059.     return;
  1060. T592:;
  1061.     base[2]= Cnil;
  1062.     vs_top=(vs_base=base+2)+1;
  1063.     return;
  1064. }
  1065. /*    function definition for C1ECASE    */
  1066.  
  1067. static L24()
  1068. {    register object *base=vs_base;
  1069.     register object *sup=base+VM15;
  1070.     vs_reserve(VM15);
  1071.     check_arg(1);
  1072.     vs_top=sup;
  1073. TTL:;
  1074.     base[1]= base[0];
  1075.     base[2]= Ct;
  1076.     vs_top=(vs_base=base+1)+2;
  1077.     L25();
  1078.     return;
  1079. }
  1080. /*    function definition for C1CASE    */
  1081.  
  1082. static L25()
  1083. {    register object *base=vs_base;
  1084.     register object *sup=base+VM16;
  1085.     vs_reserve(VM16);
  1086.     if(vs_top-vs_base<1) too_few_arguments();
  1087.     if(vs_top-vs_base>2) too_many_arguments();
  1088.     vs_base=vs_base+1;
  1089.     if(vs_base>=vs_top){vs_top=sup;goto T633;}
  1090.     vs_top=sup;
  1091.     goto T634;
  1092. T633:;
  1093.     base[1]= Cnil;
  1094. T634:;
  1095.     if(!(endp(base[0]))){
  1096.     goto T636;}
  1097.     base[2]= VV[17];
  1098.     base[3]= VV[25];
  1099.     base[4]= VV[26];
  1100.     (void)simple_symlispcall_no_event(VV[57],base+2,3);
  1101. T636:;
  1102.     base[2]= simple_symlispcall_no_event(VV[61],base+3,0);
  1103.     base[4]= car(base[0]);
  1104.     base[5]= base[2];
  1105.     base[3]= simple_symlispcall_no_event(VV[62],base+4,2);
  1106.     base[4]= Cnil;
  1107.     base[5]= cdr(base[0]);
  1108.     base[6]= car(base[5]);
  1109. T650:;
  1110.     if(!(endp(base[5]))){
  1111.     goto T651;}
  1112.     goto T646;
  1113. T651:;
  1114.     if(!(endp(base[6]))){
  1115.     goto T655;}
  1116.     base[7]= VV[45];
  1117.     base[8]= base[6];
  1118.     (void)simple_symlispcall_no_event(VV[74],base+7,2);
  1119. T655:;
  1120.     {object V27= car(base[6]);
  1121.     if((V27!= Cnil))goto T661;
  1122.     goto T660;
  1123. T661:;
  1124.     if((V27!= Ct)
  1125.     && (V27!= VV[75]))goto T662;
  1126.     if((base[1])==Cnil){
  1127.     goto T663;}
  1128.     base[7]=symbol_function(VV[74]);
  1129.     if(!(base[1]==Ct)){
  1130.     goto T668;}
  1131.     base[8]= VV[46];
  1132.     goto T666;
  1133. T668:;
  1134.     base[8]= VV[47];
  1135. T666:;
  1136.     (void)simple_lispcall_no_event(base+7,1);
  1137. T663:;
  1138.     base[7]= cdr(base[6]);
  1139.     base[1]= simple_symlispcall_no_event(VV[76],base+7,1);
  1140.     base[7]= base[2];
  1141.     base[8]= cadr(base[1]);
  1142.     (void)simple_symlispcall_no_event(VV[77],base+7,2);
  1143.     goto T660;
  1144. T662:;
  1145.     if(!(type_of(car(base[6]))==t_cons)){
  1146.     goto T677;}
  1147.     {object V28;
  1148.     object V29= car(base[6]);
  1149.     if(endp(V29)){
  1150.     base[7]= Cnil;
  1151.     goto T675;}
  1152.     base[8]=V28=MMcons(Cnil,Cnil);
  1153. T679:;
  1154.     if(!(type_of((V29->c.c_car))==t_symbol)){
  1155.     goto T682;}
  1156.     (V28->c.c_car)= (V29->c.c_car);
  1157.     goto T680;
  1158. T682:;
  1159.     base[10]= (V29->c.c_car);
  1160.     (V28->c.c_car)= simple_symlispcall_no_event(VV[78],base+10,1);
  1161. T680:;
  1162.     if(endp(V29=MMcdr(V29))){
  1163.     base[7]= base[8];
  1164.     goto T675;}
  1165.     V28=MMcdr(V28)=MMcons(Cnil,Cnil);
  1166.     goto T679;}
  1167. T677:;
  1168.     if(!(type_of(car(base[6]))==t_symbol)){
  1169.     goto T686;}
  1170.     base[7]= make_cons(car(base[6]),Cnil);
  1171.     goto T675;
  1172. T686:;
  1173.     base[9]= car(base[6]);
  1174.     base[8]= simple_symlispcall_no_event(VV[78],base+9,1);
  1175.     base[7]= make_cons(base[8],Cnil);
  1176. T675:;
  1177.     base[9]= cdr(base[6]);
  1178.     base[8]= simple_symlispcall_no_event(VV[76],base+9,1);
  1179.     base[9]= base[2];
  1180.     base[10]= cadr(base[8]);
  1181.     (void)simple_symlispcall_no_event(VV[77],base+9,2);
  1182.     base[9]= make_cons(base[7],base[8]);
  1183.     base[4]= make_cons(base[9],base[4]);}
  1184. T660:;
  1185.     base[5]= cdr(base[5]);
  1186.     base[6]= car(base[5]);
  1187.     goto T650;
  1188. T646:;
  1189.     base[5]= reverse(base[4]);
  1190.     if(base[1]!=Cnil){
  1191.     base[6]= base[1];
  1192.     goto T701;}
  1193.     base[6]= simple_symlispcall_no_event(VV[60],base+8,0);
  1194. T701:;
  1195.     base[7]= list(5,VV[17],base[2],base[3],base[5],base[6]);
  1196.     vs_top=(vs_base=base+7)+1;
  1197.     return;
  1198. }
  1199. /*    function definition for C2CASE    */
  1200.  
  1201. static L26()
  1202. {    register object *base=vs_base;
  1203.     register object *sup=base+VM17;
  1204.     vs_reserve(VM17);
  1205.     bds_check;
  1206.     check_arg(3);
  1207.     vs_top=sup;
  1208. TTL:;
  1209.     setq(VV[48],number_plus(symbol_value(VV[48]),VV[25]));
  1210.     base[3]= symbol_value(VV[48]);
  1211.     bds_bind(VV[40],symbol_value(VV[40]));
  1212.     bds_bind(VV[49],VV[26]);
  1213.     base[7]= make_cons(base[0],Cnil);
  1214.     base[8]= VV[50];
  1215.     base[6]= simple_symlispcall_no_event(VV[79],base+7,2);
  1216.     base[0]= car(base[6]);
  1217.     princ_str("\n    {object V",VV[37]);
  1218.     base[6]= base[3];
  1219.     (void)simple_symlispcall_no_event(VV[65],base+6,1);
  1220.     princ_str("= ",VV[37]);
  1221.     base[6]= base[0];
  1222.     (void)simple_symlispcall_no_event(VV[65],base+6,1);
  1223.     princ_char(59,VV[37]);
  1224.     base[6]= base[1];
  1225.     base[7]= car(base[6]);
  1226. T720:;
  1227.     if(!(endp(base[6]))){
  1228.     goto T721;}
  1229.     goto T717;
  1230. T721:;
  1231.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  1232.     base[9]= symbol_value(VV[30]);
  1233.     base[8]= make_cons(base[9],Cnil);
  1234.     base[9]= car(base[7]);
  1235.     base[10]= Cnil;
  1236. T732:;
  1237.     if(!((length(base[9]))<=(5))){
  1238.     goto T733;}
  1239.     goto T730;
  1240. T733:;
  1241.     if((base[10])!=Cnil){
  1242.     goto T737;}
  1243.     setq(VV[30],number_plus(symbol_value(VV[30]),VV[25]));
  1244.     base[11]= symbol_value(VV[30]);
  1245.     base[10]= make_cons(base[11],Cnil);
  1246. T737:;
  1247.     princ_str("\n    if(",VV[37]);
  1248.     base[11]= VV[26];
  1249. T747:;
  1250.     if(!(number_compare(base[11],VV[51])>=0)){
  1251.     goto T748;}
  1252.     goto T745;
  1253. T748:;
  1254.     if(!(type_of(car(base[9]))==t_symbol)){
  1255.     goto T754;}
  1256.     princ_str("(V",VV[37]);
  1257.     base[12]= base[3];
  1258.     (void)simple_symlispcall_no_event(VV[65],base+12,1);
  1259.     princ_str("== ",VV[37]);
  1260.     {object V30= car(base[9]);
  1261.     if((V30!= Ct))goto T762;
  1262.     princ_str("Ct",VV[37]);
  1263.     goto T761;
  1264. T762:;
  1265.     if((V30!= Cnil))goto T764;
  1266.     princ_str("Cnil",VV[37]);
  1267.     goto T761;
  1268. T764:;
  1269.     princ_str("VV[",VV[37]);
  1270.     base[12]=symbol_function(VV[65]);
  1271.     base[14]= car(base[9]);
  1272.     base[13]= simple_symlispcall_no_event(VV[80],base+14,1);
  1273.     (void)simple_lispcall_no_event(base+12,1);
  1274.     princ_char(93,VV[37]);}
  1275. T761:;
  1276.     princ_char(41,VV[37]);
  1277.     goto T752;
  1278. T754:;
  1279.     princ_str("eql(V",VV[37]);
  1280.     base[12]= base[3];
  1281.     (void)simple_symlispcall_no_event(VV[65],base+12,1);
  1282.     princ_str(",VV[",VV[37]);
  1283.     base[12]= car(base[9]);
  1284.     (void)simple_symlispcall_no_event(VV[65],base+12,1);
  1285.     princ_str("])",VV[37]);
  1286. T752:;
  1287.     if(!(number_compare(base[11],VV[52])<0)){
  1288.     goto T779;}
  1289.     princ_str("\n    || ",VV[37]);
  1290. T779:;
  1291.     base[12]= car(base[9]);
  1292.     base[9]= cdr(base[9]);
  1293.     base[11]= one_plus(base[11]);
  1294.     goto T747;
  1295. T745:;
  1296.     princ_char(41,VV[37]);
  1297.     if(type_of(base[10])!=t_cons)FEwrong_type_argument(Scons,base[10]);
  1298.     (base[10])->c.c_cdr = Ct;
  1299.     princ_str("goto T",VV[37]);
  1300.     base[11]= car(base[10]);
  1301.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1302.     princ_char(59,VV[37]);
  1303.     goto T732;
  1304. T730:;
  1305.     princ_str("\n    if(",VV[37]);
  1306. T804:;
  1307.     if(!(endp(base[9]))){
  1308.     goto T805;}
  1309.     goto T802;
  1310. T805:;
  1311.     if(!(type_of(car(base[9]))==t_symbol)){
  1312.     goto T811;}
  1313.     princ_str("(V",VV[37]);
  1314.     base[11]= base[3];
  1315.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1316.     princ_str("!= ",VV[37]);
  1317.     {object V31= car(base[9]);
  1318.     if((V31!= Ct))goto T819;
  1319.     princ_str("Ct",VV[37]);
  1320.     goto T818;
  1321. T819:;
  1322.     if((V31!= Cnil))goto T821;
  1323.     princ_str("Cnil",VV[37]);
  1324.     goto T818;
  1325. T821:;
  1326.     princ_str("VV[",VV[37]);
  1327.     base[11]=symbol_function(VV[65]);
  1328.     base[13]= car(base[9]);
  1329.     base[12]= simple_symlispcall_no_event(VV[80],base+13,1);
  1330.     (void)simple_lispcall_no_event(base+11,1);
  1331.     princ_char(93,VV[37]);}
  1332. T818:;
  1333.     princ_char(41,VV[37]);
  1334.     goto T809;
  1335. T811:;
  1336.     princ_str("!eql(V",VV[37]);
  1337.     base[11]= base[3];
  1338.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1339.     princ_str(",VV[",VV[37]);
  1340.     base[11]= car(base[9]);
  1341.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1342.     princ_str("])",VV[37]);
  1343. T809:;
  1344.     if(endp(cdr(base[9]))){
  1345.     goto T836;}
  1346.     princ_str("\n    && ",VV[37]);
  1347. T836:;
  1348.     base[11]= car(base[9]);
  1349.     base[9]= cdr(base[9]);
  1350.     goto T804;
  1351. T802:;
  1352.     princ_char(41,VV[37]);
  1353.     if(type_of(base[8])!=t_cons)FEwrong_type_argument(Scons,base[8]);
  1354.     (base[8])->c.c_cdr = Ct;
  1355.     princ_str("goto T",VV[37]);
  1356.     base[11]= car(base[8]);
  1357.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1358.     princ_char(59,VV[37]);
  1359.     if((base[10])==Cnil){
  1360.     goto T854;}
  1361.     if((cdr(base[10]))==Cnil){
  1362.     goto T854;}
  1363.     princ_str("\nT",VV[37]);
  1364.     base[11]= car(base[10]);
  1365.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1366.     princ_str(":;",VV[37]);
  1367. T854:;
  1368.     base[11]= make_cons(VV[38],symbol_value(VV[36]));
  1369.     bds_bind(VV[36],base[11]);
  1370.     base[12]= cdr(base[7]);
  1371.     base[13]= simple_symlispcall_no_event(VV[66],base+12,1);
  1372.     bds_unwind1;
  1373.     if((cdr(base[8]))==Cnil){
  1374.     goto T725;}
  1375.     princ_str("\nT",VV[37]);
  1376.     base[11]= car(base[8]);
  1377.     (void)simple_symlispcall_no_event(VV[65],base+11,1);
  1378.     princ_str(":;",VV[37]);
  1379. T725:;
  1380.     base[6]= cdr(base[6]);
  1381.     base[7]= car(base[6]);
  1382.     goto T720;
  1383. T717:;
  1384.     if(!(base[2]==Ct)){
  1385.     goto T879;}
  1386.     princ_str("\n    FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[37]);
  1387.     base[6]= base[3];
  1388.     (void)simple_symlispcall_no_event(VV[65],base+6,1);
  1389.     princ_str(");",VV[37]);
  1390.     goto T877;
  1391. T879:;
  1392.     base[6]= base[2];
  1393.     (void)simple_symlispcall_no_event(VV[66],base+6,1);
  1394. T877:;
  1395.     princ_char(125,VV[37]);
  1396.     symlispcall_no_event(VV[81],base+6,0);
  1397.     bds_unwind1;
  1398.     bds_unwind1;
  1399.     return;
  1400. }
  1401.